home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_ghostscript.idb / usr / freeware / lib / ghostscript / 3.33 / ps2ascii.ps.z / ps2ascii.ps
Encoding:
Text File  |  1998-05-21  |  14.4 KB  |  482 lines
  1. %    Copyright (C) 1991, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility to
  7. % anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU Ghostscript General Public License for full details.
  10. % 
  11.  
  12. % Extract the ASCII text from a PostScript file.  Nothing is displayed.
  13. % Instead, ASCII information is written to stdout.  The idea is similar to
  14. % Glenn Reid's `distillery', only a lot more simple-minded, and less robust.
  15.  
  16. % If SIMPLE is defined, just the text is written, with a guess at line
  17. % breaks and word spacing.  If SIMPLE is not defined, lines are written
  18. % to stdout as follows:
  19. %
  20. %    C <r> <g> <b>
  21. %        Indicate the current color. (NOT IMPLEMENTED YET)
  22. %
  23. %    F <height> <width> (<fontname>)
  24. %        Indicate font height and width of a space.
  25. %
  26. %    P
  27. %        Indicate the end of the page.
  28. % 
  29. %    R <x> <y> <width> <height>
  30. %        Display a rectangle. (NOT IMPLEMENTED YET)
  31. %
  32. %    S <x> <y> (<string>) <width>
  33. %        Display a string.
  34. %
  35. % <r>, <g>, and <b> are RGB values expressed as integers between 0 and 1000.
  36. % <width> and <height> are integer dimensions in units of 1/720".
  37. % <x> and <y> are integer coordinates, in units of 1/720", with the origin
  38. %   at the lower left.
  39. % <string> and <fontname> are strings represented with the standard
  40. %   PostScript escape conventions.
  41. % Note that future versions of this program may add other output elements,
  42. %   so programs parsing the output should be prepared to ignore elements
  43. %   that they do not recognize.
  44.  
  45. % Note that this code will only work in all cases if systemdict is writable
  46. % and if `binding' the definitions of operators defined as procedures
  47. % is deferred.  For this reason, it is normally invoked with
  48. %    gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT ps2ascii.ps
  49.  
  50. % Thanks to J Greely <jgreely@cis.ohio-state.edu> for improvements
  51. % to this code, and to Jerry Whelan <jerryw@abode.ccd.bnl.gov> for
  52. % motivating other improvements.
  53.  
  54. /QUIET true def
  55. systemdict wcheck { systemdict } { userdict } ifelse begin
  56. /.max where { pop } { /.max { 2 copy lt { exch } if pop } bind def } ifelse
  57. /SIMPLE dup where { pop true } { false } ifelse def
  58. /setglobal where
  59.  { pop currentglobal /setglobal load true setglobal }
  60.  { { } }
  61. ifelse
  62.  
  63. % Define a way to store and retrieve integers that survives save/restore.
  64. /.i.string0 (0               ) def
  65. /.i.string .i.string0 length string def
  66. /.iget { cvi } bind def
  67. /.iput { exch //.i.string exch copy cvs pop } bind def
  68. /.inew { //.i.string0 dup length string copy } bind def
  69.  
  70. % Disable the display operators.
  71.  
  72. /eofill { newpath } odef
  73. /erasepage { } odef
  74. /fill { newpath } odef
  75. /stroke { newpath } odef
  76.  
  77. % The image operators must read the input, but do nothing.
  78.  
  79. /colorimage where
  80.  { pop /colorimage { gsave nulldevice //colorimage grestore } odef
  81.  } if
  82. /image { gsave nulldevice //image grestore } odef
  83. /imagemask { gsave nulldevice //imagemask grestore } odef
  84.  
  85. % Redefine the end-of-page operators.
  86.  
  87. /copypage { SIMPLE { (\014) } { (P\n) } ifelse //print } odef
  88. /showpage { copypage erasepage initgraphics } odef
  89.  
  90. % Output the current color if necessary.
  91. /.color.r .inew def
  92.   .color.r -1 .iput        % make sure we write the color at the beginning
  93. /.color.g .inew def
  94. /.color.b .inew def
  95. /.showcolor
  96.  { SIMPLE not
  97.     { currentrgbcolor
  98.       1000 mul round cvi
  99.       3 1 roll 1000 mul round cvi
  100.       exch 1000 mul round cvi
  101.         % Stack: b g r
  102.       dup //.color.r .iget eq
  103.       2 index //.color.g .iget eq and
  104.       3 index //.color.b .iget eq and
  105.        { pop pop pop
  106.        }
  107.        { (C ) //print
  108.      dup //.color.r exch .iput .show==only
  109.          ( ) //print dup //.color.g exch .iput .show==only
  110.          ( ) //print dup //.color.b exch .iput .show==only
  111.      (\n) //print
  112.        }
  113.       ifelse
  114.     }
  115.    if
  116.  } bind def
  117. % Some programs that interpret the output of ps2ascii aren't prepared to
  118. % handle the C command, so ****** WE DISABLE IT ******.
  119. /.showcolor { } def
  120.  
  121. % Redefine `show'.
  122.  
  123. % Set things up so our output will be in tenths of a point, with origin at
  124. % lower left.  This isolates us from the peculiarities of individual devices.
  125.  
  126. /.show.ident.matrix matrix def
  127. /.show.ident
  128. % { //.show.ident.matrix defaultmatrix
  129. %        % Assume the original transformation is well-behaved.
  130. %   0.1 0 2 index dtransform abs exch abs .max /.show.scale exch def
  131. %   0.1 dup 3 -1 roll scale
  132.  { gsave initmatrix
  133.         % Assume the original transformation is well-behaved.
  134.    0.1 0 dtransform abs exch abs .max /.show.scale exch def
  135.    0.1 dup scale .show.ident.matrix currentmatrix
  136.    grestore
  137.  } bind def
  138. /.coord
  139.  { transform .show.ident itransform
  140.    exch round cvi exch round cvi
  141.  } odef
  142. /.dcoord
  143.  {        % Transforming distances is trickier, because
  144.         % the coordinate system might be rotated.
  145.    .show.ident pop
  146.    exch 0 dtransform
  147. %     dup 0 ne { dup mul exch dup mul add sqrt } { pop abs } ifelse
  148. dup mul exch dup mul add sqrt
  149.      .show.scale div round cvi
  150.    exch 0 exch dtransform
  151. %     exch dup 0 ne { dup mul exch dup mul add sqrt } { pop abs } ifelse
  152. dup mul exch dup mul add sqrt
  153.      .show.scale div round cvi
  154.  } odef
  155.  
  156. % Remember the current X, Y, and height.
  157. /.show.x .inew def
  158. /.show.y .inew def
  159. /.show.height .inew def
  160. % Remember the last character of the previous string; if it was a
  161. % hyphen preceded by a letter, we didn't output the hyphen.
  162. /.show.last (\000) def
  163. % Remember the current font.
  164. /.font.name 130 string def
  165. /.font.name.length .inew def
  166. /.font.height .inew def
  167. /.font.width .inew def
  168.  
  169. % We have to redirect stdout somehow....
  170. /.show.stdout { (%stdout) (w) file } bind def
  171.  
  172. % Make sure writing will work even if a program uses =string.
  173. /.show.string =string length string def
  174. /.show.=string =string length string def
  175. /.show==only
  176.  { //=string //.show.=string copy pop
  177.    dup type /stringtype eq
  178.     { dup length //.show.string length le
  179.        { dup rcheck { //.show.string copy } if
  180.        } if
  181.     } if
  182.    .show.stdout exch write==only
  183.    //.show.=string //=string copy pop
  184.  } odef
  185.  
  186. /.showfont    % <string> .showfont <string>
  187.  { gsave
  188.     % Try getting the height and width of the font from the FontBBox.
  189.      currentfont /FontBBox .knownget not { {0 0 0 0} } if
  190.      aload pop exch 4 -1 roll sub 3 1 roll exch sub
  191.      2 copy .max 0 ne
  192.       { currentfont /FontMatrix get dtransform
  193.       }
  194.       {    pop pop
  195.     % Fonts produced by dvips, among other applications, have
  196.     % BuildChar procedures that bomb out when given unexpected
  197.     % characters, and there is no way to determine whether a given
  198.     % character will do this.  So for Type 1 fonts, we measure a
  199.     % typical character ('X'); for others, we punt.
  200.     currentfont /FontType get 1 eq
  201.      { (X) stringwidth pop dup 1.3 mul
  202.      }
  203.      {    % No safe way to get the character size.  Punt.
  204.        0 0
  205.      }
  206.     ifelse
  207.       }
  208.      ifelse .dcoord exch
  209.      currentfont /FontName .knownget not { () } if
  210.      dup type /stringtype ne { //.show.string cvs } if
  211.    grestore
  212.     % Stack: height width fontname
  213.    SIMPLE
  214.     { pop pop //.show.height exch .iput }
  215.     { 2 index //.font.height .iget eq
  216.       2 index //.font.width .iget eq and
  217.       1 index //.font.name 0 //.font.name.length .iget getinterval eq and
  218.        { pop pop pop
  219.        }
  220.        { (F ) //print
  221.      3 -1 roll dup //.font.height exch .iput .show==only ( ) //print
  222.          exch dup //.font.width exch .iput .show==only ( ) //print
  223.      dup length //.font.name.length exch .iput
  224.          //.font.name cvs .show==only (\n) //print
  225.        }
  226.       ifelse
  227.     }
  228.    ifelse
  229.  } odef
  230.  
  231. % Define the letters -- characters which, if they occur followed by a hyphen
  232. % at the end of a line, cause the hyphen and line break to be ignored.
  233. /.letter.chars 100 dict def
  234. mark
  235.   65 1 90 { dup 32 add } for
  236. counttomark { StandardEncoding exch get .letter.chars exch dup put } repeat
  237. pop
  238.  
  239. % Define a set of characters which, if they occur at the start of a line,
  240. % are taken as indicating a paragraph break.
  241. /.break.chars 50 dict def
  242. mark
  243.   /bullet /dagger /daggerdbl /periodcentered /section
  244. counttomark { .break.chars exch dup put } repeat
  245. pop
  246.  
  247. % Define character translation to ASCII.
  248. % We have to do this for the entire character set.
  249. /.char.map 500 dict def
  250. /.chars.def { counttomark 2 idiv { .char.map 3 1 roll put } repeat pop } def
  251.     % Encode the printable ASCII characters.
  252. mark 32 1 126
  253.  { 1 string dup 0 4 -1 roll put
  254.    dup 0 get StandardEncoding exch get exch
  255.  }
  256. for .chars.def
  257.     % Encode accents.
  258. mark
  259.   /acute (') /caron (^) /cedilla (,) /circumflex (^)
  260.   /dieresis (") /grave (`) /ring (*) /tilde (~)
  261. .chars.def
  262.     % Encode the ISO accented characters.
  263. mark 192 1 255
  264.  { ISOLatin1Encoding exch get =string cvs
  265.    dup 0 1 getinterval 1 index dup length 1 sub 1 exch getinterval
  266.    .char.map 2 index known .char.map 2 index known and
  267.     { .char.map 3 -1 roll get .char.map 3 -1 roll get concatstrings
  268.       .char.map 3 1 roll put
  269.     }
  270.     { pop pop pop
  271.     }
  272.    ifelse
  273.  }
  274. for .chars.def
  275.     % Encode the remaining standard and ISO alphabetic characters.
  276. mark
  277.   /AE (AE) /Eth (DH) /OE (OE) /Thorn (Th)
  278.   /ae (ae) /eth (dh)
  279.   /ffi (ffi) /ffl (ffl) /fi (fi) /fl (fl)
  280.   /germandbls (ss) /oe (oe) /thorn (th)
  281. .chars.def
  282.     % Encode the other standard and ISO characters.
  283. mark
  284.   /brokenbar (|) /bullet (*) /copyright ((C)) /currency (#)
  285.   /dagger (#) /daggerdbl (##) /degree (o) /divide (/) /dotaccent (.)
  286.   /dotlessi (i)
  287.   /ellipsis (...) /emdash (--) /endash (-) /exclamdown (!)
  288.   /florin (f) /fraction (/)
  289.   /guillemotleft (<<) /guillemotright (>>)
  290.   /guilsingleft (<) /guilsingright (>) /hungarumlaut ("") /logicalnot (~)
  291.   /macron (_) /minus (-) /mu (u) /multiply (*)
  292.   /ogonek (,) /onehalf (1/2) /onequarter (1/4) /onesuperior (1)
  293.   /ordfeminine (-a) /ordmasculine (-o)
  294.   /paragraph (||) /periodcentered (*) /perthousand (o/oo) /plusminus (+-)
  295.   /questiondown (?) /quotedblbase (") /quotedblleft (") /quotedblright (")
  296.   /quotesinglbase (,) /quotesingle (') /registered ((R))
  297.   /section ($) /sterling (#)
  298.   /threequarters (3/4) /threesuperior (3) /trademark ((TM)) /twosuperior (2)
  299.   /yen (Y)
  300. .chars.def
  301.     % Encode a few common Symbol characters.
  302. mark
  303.   /asteriskmath (*) /copyrightsans ((C)) /copyrightserif ((C))
  304.   /greaterequal (>=) /lessequal (<=) /registersans ((R)) /registerserif ((R))
  305.   /trademarksans ((TM)) /trademarkserif ((TM))
  306. .chars.def
  307.  
  308. % Write out a string.  If it ends in a letter and a hyphen,
  309. % don't write the hyphen, and set .show.last to a hyphen;
  310. % otherwise, set .show.last to the character (or \000 if it was a hyphen).
  311. /.show.write    % <string>
  312.  { dup length 1 ge
  313.     { dup dup length 1 sub get
  314.       dup 45 eq        % hyphen
  315.        { 1 index length 1 gt
  316.           { 1 index dup length 2 sub get }
  317.       { //.show.last 0 get }
  318.      ifelse
  319.      currentfont /Encoding get exch get
  320.      //.letter.chars exch known
  321.       {    % Remove the hyphen
  322.         exch dup length 1 sub 0 exch getinterval exch
  323.       }
  324.       { pop 0
  325.       }
  326.      ifelse
  327.        }
  328.       if
  329.       //.show.last 0 3 -1 roll put
  330.     }
  331.    if
  332.     { dup currentfont /Encoding get exch get
  333.       dup //.char.map exch .knownget
  334.        { .show.stdout exch writestring pop pop
  335.        }
  336.        { currentfont /Encoding dup StandardEncoding eq
  337.      exch ISOLatin1Encoding eq or
  338.       {    % Untranslated character in standard encoding
  339.         pop .show.stdout exch write
  340.       }
  341.       {    % Character in non-standard encoding, substitute
  342.         pop pop .show.stdout (*) writestring
  343.       }
  344.      ifelse
  345.        }
  346.       ifelse
  347.     }
  348.    forall
  349.  } odef
  350. /.showstring1
  351.  { currentpoint .coord
  352.    3 -1 roll dup stringwidth 1 index 0 rmoveto
  353.    .dcoord pop
  354.     % Stack: x y string width
  355.    SIMPLE
  356.     { 2 index //.show.y .iget ne
  357.        {    % Try to figure out whether we have a line break
  358.         % or a paragraph break.
  359.      2 index //.show.y .iget sub abs
  360.      //.show.height .iget 1.3 mul ge
  361.      2 index length 0 gt
  362.       { 2 index 0 get currentfont /Encoding get exch get
  363.         //.break.chars exch known { pop true } if
  364.       }
  365.      if
  366.       { (\n\n)    % Paragraph
  367.       }
  368.       { ( )        % Line
  369.       }
  370.      ifelse //print
  371.      //.show.y 3 index .iput
  372.          //.show.x 4 index .iput
  373.        }
  374.        {    % If the word processor split a hyphenated word within
  375.         % the same line, put out the hyphen now.
  376.      //.show.last 0 get 45 eq { (-) //print } if
  377.        }
  378.       ifelse
  379.       3 index //.show.x .iget 10 add gt
  380.        { ( ) //print
  381.        }
  382.       if
  383.       4 1 roll .show.write pop add //.show.x exch .iput
  384.     }
  385.     { (S ) //print
  386.       4 -1 roll .show==only ( ) //print
  387.       3 -1 roll .show==only ( ) //print
  388.       exch .show==only ( ) //print
  389.       .show==only (\n) //print
  390.     }
  391.    ifelse
  392.  } odef
  393. /.showstring
  394.  { dup () eq { pop } { .showstring1 } ifelse
  395.  } bind def
  396.      
  397. % Redefine all the string display operators.
  398.  
  399. /show
  400.  { .showfont .showcolor .showstring
  401.  } odef
  402.  
  403. % We define all the other operators in terms of .show1.
  404. /.show1.string ( ) def
  405. /.show1 { //.show1.string exch 0 exch put //.show1.string .showstring } odef
  406. /ashow
  407.  { .showfont .showcolor
  408.    { .show1 2 copy rmoveto } forall
  409.    pop pop
  410.  } odef
  411. /awidthshow
  412.  { .showfont .showcolor
  413.     { dup .show1 4 index eq { 4 index 4 index rmoveto } if
  414.       2 copy rmoveto
  415.     }
  416.    forall
  417.    pop pop pop pop pop
  418.  } odef
  419. /widthshow
  420.  { .showfont .showcolor
  421.    //.show1.string 0 4 -1 roll put
  422.     { //.show1.string search not { exit } if
  423.       .showstring .showstring
  424.       2 index 2 index rmoveto
  425.     } loop
  426.    .showstring pop pop
  427.  } odef
  428. /kshow
  429.  { .showfont .showcolor
  430.     { .show1 dup exec } forall pop
  431.  } odef
  432. % We don't really do the right thing with the Level 2 show operators,
  433. % but we do something semi-reasonable.
  434. /xshow where
  435.  { pop /xshow { pop show } bind odef
  436.  } if
  437. /yshow where
  438.  { pop /yshow { pop show } bind odef
  439.  } if
  440. /xyshow where
  441.  { pop /xyshow { pop show } bind odef
  442.  } if
  443. /glyphshow where
  444.  { pop /glyphshow
  445.     { currentfont /Encoding .knownget not { {} } if
  446.       0 1 2 index length 1 sub
  447.        {    % Stack: glyph encoding index
  448.      2 copy get 3 index eq { exch pop exch pop null exit } if
  449.        }
  450.       for null eq { (X) dup 0 4 -1 roll put show } { pop } ifelse
  451.     } bind odef
  452.  } if
  453.  
  454. % Redirect the printing operators.
  455.  
  456. /.stdout (_temp_.out) (w) file def
  457. /.stderr (_temp_.err) (w) file def
  458. /print { //.stdout exch writestring } odef
  459. /=only { //.stdout exch write=only } odef
  460. /==only { //.stdout exch write==only } odef
  461.  
  462. end
  463.  
  464. % Bind the operators we just defined, and all the others if we didn't
  465. % do it before.  Also reenable 'bind' for future files.
  466.  
  467. .bindoperators
  468. NOBIND currentdict systemdict ne and
  469.  { systemdict begin .bindoperators end }
  470. if
  471. NOBIND
  472.  { /bind /.bind load def }
  473. if
  474.  
  475. % Make systemdict read-only if it wasn't already.
  476.  
  477. systemdict wcheck { systemdict readonly pop } if
  478.  
  479. % Restore the current local/global VM mode.
  480.  
  481. exec
  482.